program maxDouble ! c0
  double precision x 
  integer i
  x = 3.D0  
  if (x>2.0D0) then ! c if
    x=x-1.0D0
  endif ! c endif
  do i=1,2,1 ! c do
    x=x+1.0
  enddo ! c enddo
  write(*,*) 'x = ',x  
end program maxDouble 

